﻿Public Class frmDisplayClaimTypes

    Private Sub frmDisplayClaimTypes_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        InitializeClaimTypes()
    End Sub

    Private Sub InitializeClaimTypes()
        Dim ClaimTypes As String() =
                {
                    "[Pick or type]", _
                    "http://schemas.xmlsoap.org/ws/2009/09/identity/claims/actor", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/anonymous", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/authentication", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/authenticationinstant", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/authenticationmethod", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/authorizationdecision", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims", _
                    "http://schemas.xmlsoap.org/ws/2009/09/identity/claims", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/cookiepath", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/country", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/dateofbirth", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/denyonlyprimarygroupsid", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/denyonlyprimarysid", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/denyonlysid", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/dns", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/dsa", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/emailaddress", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/expiration", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/expired", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/gender", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/givenname", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/groupsid", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/hash", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/homephone", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/ispersistent", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/locality", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/mobilephone", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/name", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/nameidentifier", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/otherphone", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/postalcode", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/privatepersonalidentifier", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/primarygroupsid", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/primarysid", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/role", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/rsa", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/serialnumber", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/sid", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/spn", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/stateorprovince", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/streetaddress", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/surname", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/system", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/thumbprint", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/upn", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/uri", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/userdata", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/version", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/webpage", _
                    "http://schemas.microsoft.com/ws/2008/06/identity/claims/windowsaccountname", _
                    "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/x500distinguishedname", _
                    "http://schemas.xmlsoap.org/claims", _
                    "http://schemas.xmlsoap.org/claims/CommonName", _
                    "http://schemas.xmlsoap.org/claims/EmailAddress", _
                    "http://schemas.xmlsoap.org/claims/Group", _
                    "http://schemas.xmlsoap.org/claims/UPN" _
            }

        cmbClaimTypes.Items.AddRange(ClaimTypes)
        cmbClaimTypes.SelectedIndex = 0
        'cmbClaimTypes.Anchor = AnchorStyles.Left Or AnchorStyles.Right
    End Sub

    Private Sub cmdCopy_Click(sender As System.Object, e As System.EventArgs) Handles cmdCopy.Click
        Clipboard.SetText(cmbClaimTypes.Text)
        MsgBox(cmbClaimTypes.Text)
    End Sub
End Class